object Tbl: TTbl
  OldCreateOrder = True
  Left = 386
  Top = 191
  Height = 250
  Width = 422
  object OldTbl: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$RELATIONS where '#13#10'RDB$RELATION_NAME=:RNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'RNAME'
        ParamType = ptInput
      end>
    SQLConnection = DM.OldDB
    Left = 32
    Top = 24
  end
  object NewTbl: TSQLDataSet
    GetMetadata = False
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.NewDB
    Left = 152
    Top = 24
  end
  object OldTblFields: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'select * from RDB$RELATION_FIELDS where RDB$RELATION_NAME=:TNAME' +
      ' and RDB$SYSTEM_FLAG<>1'#13#10'and RDB$FIELD_NAME=:RNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'TNAME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'RNAME'
        ParamType = ptInput
      end>
    SQLConnection = DM.OldDB
    Left = 32
    Top = 96
  end
  object NewTblFields: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'select * from RDB$RELATION_FIELDS where RDB$RELATION_NAME=:TNAME' +
      ' and RDB$SYSTEM_FLAG<>1'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'TNAME'
        ParamType = ptInput
        Value = 'xxx'
      end>
    SQLConnection = DM.NewDB
    Left = 152
    Top = 96
  end
  object OldFields: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$FIELDS'#13#10'where RDB$FIELD_NAME=:RNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'RNAME'
        ParamType = ptInput
      end>
    SQLConnection = DM.OldDB
    Left = 32
    Top = 160
  end
  object NewFields: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$FIELDS'#13#10'where RDB$FIELD_NAME=:RNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'RNAME'
        ParamType = ptInput
      end>
    SQLConnection = DM.NewDB
    Left = 152
    Top = 160
  end
end
